home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / how smart (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  77 lines
  1. 100 print"[147]"
  2. 110 poke 53280,7:poke53281,7
  3. 120 print chr$(149)
  4. 130 print chr$(14)
  5. 140 print chr$(8)
  6. 150 dim t$(30)
  7. 160 for x=1 to 30:read t$(x):nextx
  8. 170 forx=1to36:d$=d$+"=":nextx
  9. 180 print"[147]          [200]ow [211]mart are [217]ou?":forz=1to2000:nextz:print"[147]"
  10. 200 print""
  11. 205 for j=1to10
  12. 210 r=int(10*rnd(1))+1
  13. 211 if t$(r)="done"then210
  14. 213 print"[209][213][197][211][212][201][207][206][160][206][213][205][194][197][210]";j:print
  15. 220 print"=1=";d$:printt$(r):print:t$(r)="done"
  16. 225 print"=2=";d$:printt$(r+10)
  17. 226 print:print"===";d$:print
  18. 230 print:print"[211]elect correct answer by number"
  19. 232 geta$:ifa$=""then232:a=val(a$)
  20. 235 print:print"===";d$
  21. 240 print"[145][145][145][145][145][195]orrect answer is:[146]"
  22. 250 print"                                       "
  23. 255 printt$(r+20)
  24. 260 print"[208]ress [210][197][212][213][210][206] to continue/'[209]'to [209]uit":poke198,0:wait198,1:geta$
  25. 270 if a$="q"or a$="[209]"then 280
  26. 275 print"[147]":nextj
  27. 280 print chr$(9)
  28. 300 rem ****** end *******
  29. 302 poke53280,5:poke53281,0:print"[144]";
  30. 305 print"[144][147]load"chr$(34)"payload"chr$(34)",8":print"run"
  31. 310 poke631,13:poke632,13:poke198,2
  32. 315 rem ****** end *******
  33. 320 end
  34. 3000 rem data follows
  35. 3001 data "[196]oes a person live here with one eye    named [215]ilson?"
  36. 3002 data"[193] strange man was strolling down [205]ain   [211]treet with a red beard."
  37. 3003 data"[205]rs. [211]mith was injured while fixing     dinner in a horrible manner."
  38. 3004 data "[215]hile eating oats, he took the mare     out of his stable."
  39. 3005 data"[212]he flames were put out before any more damage by the [198]ire [196]ept."
  40. 3006 data"[212]he old man went to the barn to milk    the cow with his cane."
  41. 3007 data"[212]he girl went to the party with a boy ina low cut gown."
  42. 3008 data "[200]e sold the watch to the girl with a    [211]wiss movement."
  43. 3009 data"[196]id you read about the girl who was run over in the newspaper?"
  44. 3010 data"[212]he computer was delivered by the man   with a screw loose."
  45. 4001 data "[196]oes a one-eyed person named [215]ilson     live here?"
  46. 4002 data"[193] strange man with a red beard was      strolling down [205]ain [211]treet."
  47. 4003 data"[205]rs. [211]mith was injured in a horrible    manner while fixing dinner."
  48. 4004 data"[215]hile the mare was eating oats, he was  taken from the stable."
  49. 4005 data"[212]he flames were put out by [198]ire [196]ept.   before more damage was done."
  50. 4006 data"[212]he old man went to the barn with his   cane to milk the cow."
  51. 4007 data"[215]earing a low cut gown, the girl went   with the boy to the party."
  52. 4008 data"[200]e sold the watch with a [211]wiss movement to the girl."
  53. 4009 data"[196]id you read in the newspaper about the girl who was run over?"
  54. 4010 data"[212]he computer had a screw loose when it  was delivered."
  55. 5001 data "[206]o.  [200]e moved about six years ago."
  56. 5002 data"[193] man was strolling down [205]ain [211]treet    with a strange broad."
  57. 5003 data"[205]rs. [211]mith was fixing a horrible dinner and hurt herself."
  58. 5004 data"[215]hile she was eating they took her darn oats from her."
  59. 5005 data"[212]he damaged old flame was put out to    avoid further trouble."
  60. 5006 data"[212]he old man took a bucket to the barn   to milk the cow."
  61. 5007 data"[215]hen he saw the gown, the boy decided   to stay home and party."
  62. 5008 data "[200]e gave the watch to the girl with a    [211]wiss movement."
  63. 5009 data"[206]o.  [194]ut [201] saw the film at 11:00 p.m."
  64. 5010 data"[193]nyone who gets a computer must have a  screw loose -- somewhere."
  65. 5090 rem
  66. 6000 rem **************************
  67. 6010 rem *                        *
  68. 6020 rem * how smart are you?     *
  69. 6030 rem *                        *
  70. 6040 rem * paul raymer            *
  71. 6050 rem * 3464 townhouse drive   *
  72. 6060 rem * las vegas nevada 89121 *
  73. 6070 rem *                        *
  74. 6080 rem * iii/xvii/mcmlxxxiv     *
  75. 6090 rem *                        *
  76. 6100 rem **************************
  77.